home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / VisageDMSlide.dmrx < prev    next >
Encoding:
Text File  |  2002-10-27  |  1.1 KB  |  55 lines
  1. /* Arexx-Script to display pictures in a slideshow using Visage */
  2.  
  3. /*
  4. *** $VER: VisageDMSlide.dmrx 1.0 (25.1.98) Nils Goers
  5. ***                      N.Goers@Art-Line.de
  6. ***
  7. *** How to install:
  8. *** AddCmd ShowPic, 20, Recurse OFF;Extern run >NIL: DM2:rexx/VisageDMSlide.dmrx %a
  9. */
  10.  
  11. Visage = "c:Visage.bat"        /* Visage.bat is a frontend with several Visage settings i'm prefer */
  12. OutPut = "t:VisageDMSlide."    /* PortName from Diskmaster will be added. */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. parse arg DMScreen
  17.  
  18. IF DMScreen = "" THEN
  19.    DMScreen = "DM.1"
  20.  
  21. Address VALUE DMScreen
  22.  
  23. unique=TIME('s')
  24.  
  25. Catalog = output||unique||"."||DMScreen
  26.  
  27. Msg '"Please wait, creating slideshow..."'
  28.  
  29. Status P
  30. path=Result
  31. Fileselect = "           S"
  32. Dirselect  = "          DS"
  33.  
  34. DirList List
  35. DO i = 1 TO List.0
  36.   parse var List.i name cmt+80 sel
  37.  
  38.   IF sel = Dirselect then
  39.      ADDRESS COMMAND "Echo" name||"/#? >>"||Catalog
  40.    IF sel=Fileselect then
  41.      ADDRESS COMMAND "Echo" name ">>"||Catalog
  42. END
  43. Deselect "*"
  44.  
  45. Pragma pragma('d', path)
  46.  
  47. IF ~EXISTS(Catalog) THEN DO
  48. Msg '"No files/dirs selected."'
  49. EXIT
  50. END
  51.  
  52. ADDRESS COMMAND Visage "LIST" Catalog
  53. Delete Catalog
  54. /*EOS*/
  55.